home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cdity / ScreenSurf.lha / install-ScreenSurf < prev    next >
Encoding:
Text File  |  1998-03-18  |  2.9 KB  |  124 lines
  1. ;test d'installer
  2. ;----------------------------------
  3. ;definition des variables de base
  4. ;
  5. ;MINSUSER  AVERAGE
  6. ;
  7. ;LANGUAGE francais
  8. ;--------------------------
  9. ;dans quel repertoire
  10. ;--------------------------
  11.  
  12. (set #name
  13.     (askdir
  14.         (prompt "Indiquer le répertoire ou placer ScreenTab \n un repertoire screenTab sera créer ")
  15.         (help @askdir-help)
  16.         (default "ram:")
  17.     )
  18. )
  19.  
  20. ;--------------------------------
  21. ;determine l'origine des fichiers
  22. ;--------------------------------
  23.  
  24. (set #source (pathonly @icon))
  25. (set #path (tackon #name "screentab"))
  26. (set #repertoire (exists #path) )
  27.  
  28. ;--------------------------------
  29. ;verifie si repertoire existant
  30. ;--------------------------------
  31.  
  32. (if #repertoire
  33.     (    
  34.         (abort "Répertoire ou fichier déja existant \n Installation interrompue "
  35.         "\n Effacer le fichier ou repertoire "
  36.         "\n et recommencer l'installation"
  37.         "\n ou recommencer et choissiser "
  38.         "\n un autre repertoire de destination") 
  39.     )
  40.  
  41.      (makedir #path
  42.         (prompt "Repertoire Screentab en cours de creation")
  43.         (help @makedir-help)
  44.         (infos)
  45.         (confirm)
  46.     )
  47.     )    
  48. (complete 10 %)
  49. (set @default-dest #path)
  50.  
  51. ;----------------------------------
  52. ;cherche si on copie tout
  53. ;----------------------------------
  54. (set #choix (askoptions
  55.             (prompt "Choissisez les fichiers annexe à copier")
  56.             (help "Indiquez les fichiers annexes a copier \n Aucun fichier est n'indispensable")
  57.         (choices "doc français" "doc anglais"  "catalogue anglais")
  58.         (default 1)
  59.         )        
  60. )        
  61. (complete 20 %)    
  62. ;----------------------------------
  63. ;copie les fichiers
  64. ;----------------------------------
  65. ;copie du programme
  66. (copyfiles
  67.     (prompt "Copier ScreenTab")
  68.     (help "Copie le programme dans le répertoire choisi")
  69.     (source (tackon  #source "screentab"))
  70.     (infos)
  71.     (dest #path)    
  72.     (noposition)
  73.     (confirm)
  74. )
  75.  
  76. ;----------------------------------
  77. ;si copie demandes repertoire doc
  78. ;----------------------------------
  79.  
  80.  
  81. (if (BITAND 1 #choix )
  82.     (copyfiles
  83.         (prompt "Copier ScreenTabFR.guide")
  84.         (help "Copie le guide dans le répertoire Doc\n celui-ci est créé dans le repertoire choisi ")
  85.         (source (tackon #source "doc/screentabFR.guide"))
  86.         (dest (tackon #path "doc"))
  87.         (infos)
  88.         (noposition)
  89.         (confirm)
  90.     )     
  91. )
  92. (complete 50%)
  93. (if (BITAND 2 #choix )
  94.     (copyfiles
  95.         (prompt "Copier ScreenTab.guide")
  96.         (help "Copie le guide anglais dans le répertoire doc \ncelui-ci est créé dans le repertoire choisi ")
  97.         (source (tackon #source "doc/screentab.guide"))
  98.         (dest (tackon #path "doc"))
  99.         (infos)
  100.         (noposition)
  101.         (confirm)
  102.     )     
  103. )
  104. (complete 70%)
  105. (if (BITAND 4 #choix )
  106.     (copyfiles
  107.         (prompt "Copier Catalogue anglais Screen tab")
  108.         (help "Copie le guide anglais dans le répertoire doc \ncelui-ci est créé dans le repertoire choisi ")
  109.         (source (tackon #source "catalogs/english/screentab.catalog"))
  110.         (dest (tackon #path "catalogs/english/screentab.catalog"))
  111.         (infos)
  112.         (noposition)
  113.         (confirm)
  114.     )     
  115. )
  116.  
  117.  
  118.  
  119. ;--------------------
  120. ;copier le complement
  121. ;--------------------    
  122. (complete 90 %)
  123.  
  124.